home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_8009.txt < prev    next >
Text File  |  1990-08-14  |  14KB  |  510 lines

  1. -- card: 8009 from stack: in
  2. -- bmap block id: 8922
  3. -- flags: 4000
  4. -- background id: 4754
  5. -- name: CSL Marks
  6. ----- HyperTalk script -----
  7. on rollingDemo
  8.   answer "Marks demo will take approx. 7 min." with "Cancel" or "OK"
  9.   if it is "Cancel" then exit rollingDemo
  10.   set the cursor to none
  11.   lock screen
  12.   go to card "Rolling Demo Instructions" of this background
  13.   unlock screen with dissolve fast
  14.   repeat until the mouseClick
  15.   end repeat
  16.   set the cursor to hand
  17.   autoMouse moveMouse,420,60
  18.   click at the loc of bg button id 7
  19.   showInfo "Introduction",false
  20.   wait 1 second
  21.   set the cursor to hand
  22.   autoMouse menuMouse,4,8 -- Letter Grades‚Ķ
  23.   showInfo "Letter Grades",true
  24.   wait 1 second
  25.   set the cursor to hand
  26.   autoMouse moveMouse,420,229
  27.   click at the loc of card button "OK"
  28.   autoMouse menuMouse,3,9 -- Special Marks‚Ķ
  29.   showInfo "Special Marks",true
  30.   wait 1 second
  31.   set the cursor to hand
  32.   autoMouse moveMouse,169,252
  33.   click at the loc of card button "OK"
  34.   showInfo "Enter Data",false
  35.   wait 1 second
  36.   set the cursor to hand
  37.   autoMouse menuMouse,2,1 -- New Bin
  38.   if the result is "Item not found" then -- test for XCMD bug
  39.     send "doMenu New Bin" to background "CSL Marks"
  40.   end if
  41.   wait 1 second
  42.   type "Assignments"
  43.   wait 30
  44.   select text of background field id 17
  45.   type "25.0"
  46.   wait 1 second
  47.   autoMouse menuMouse,2,1 -- New Bin
  48.   if the result is "Item not found" then -- test for XCMD bug
  49.     send "doMenu New Bin" to background "CSL Marks"
  50.   end if
  51.   wait 1 second
  52.   type "Exams"
  53.   wait 30
  54.   select text of background field id 20
  55.   type "75.0"
  56.   wait 1 second
  57.   autoMouse menuMouse,2,1 -- New Bin
  58.   if the result is "Item not found" then -- test for XCMD bug
  59.     send "doMenu New Bin" to background "CSL Marks"
  60.   end if
  61.   wait 1 second
  62.   type "Term 1 Mark"
  63.   select empty
  64.   showInfo "Bins",false
  65.   wait 1 second
  66.   set the cursor to hand
  67.   autoMouse moveMouse,160,80
  68.   click at the loc of background button id 1
  69.   click at the loc of background button id 1
  70.   wait 30
  71.   autoMouse menuMouse,2,1 -- New Task
  72.   if the result is "Item not found" then -- test for XCMD bug
  73.     send "doMenu New Task" to background "CSL Marks"
  74.   end if
  75.   wait 1 second
  76.   type "Essays"
  77.   wait 30
  78.   select text of card field id 6
  79.   type "100.0"
  80.   wait 30
  81.   select text of card field id 7
  82.   type "1"
  83.   wait 1 second
  84.   select text of card field id 21
  85.   type "A"
  86.   put "92.5" into background field id 29
  87.   put "92.5" into background field id 61
  88.   put "A" into background field id 69
  89.   wait 30
  90.   select text of card field id 22
  91.   type "85.0"
  92.   put "85.0" into background field id 30
  93.   put "85.0" into background field id 62
  94.   put "A-" into background field id 70
  95.   wait 30
  96.   select text of card field id 23
  97.   type "C+"
  98.   put "67.5" into background field id 31
  99.   put "67.5" into background field id 63
  100.   put "C+" into background field id 71
  101.   wait 30
  102.   select text of card field id 24
  103.   type "A-"
  104.   put "87.5" into background field id 32
  105.   put "87.5" into background field id 64
  106.   put "A-" into background field id 72
  107.   wait 30
  108.   select text of card field id 25
  109.   type "D"
  110.   put "52.5" into background field id 33
  111.   put "52.5" into background field id 65
  112.   put "D" into background field id 73
  113.   wait 1 second
  114.   put "64.0" into background field id 34
  115.   put "64.0" into background field id 66
  116.   put "C" into background field id 74
  117.   wait 1 second
  118.   put "77.5" into background field id 35
  119.   put "77.5" into background field id 67
  120.   put "B" into background field id 75
  121.   wait 1 second
  122.   put "82.5" into background field id 36
  123.   put "82.5" into background field id 68
  124.   put "B+" into background field id 76
  125.   showInfo "Tasks",true
  126.   wait 1 second
  127.   set the cursor to hand
  128.   autoMouse moveMouse,18,35
  129.   click at the loc of card button "Close"
  130.   wait 1 second
  131.   autoMouse moveMouse,230,80
  132.   click at the loc of background button id 2
  133.   click at the loc of background button id 2
  134.   wait 30
  135.   autoMouse menuMouse,2,1 -- New Task
  136.   if the result is "Item not found" then -- test for XCMD bug
  137.     send "doMenu New Task" to background "CSL Marks"
  138.   end if
  139.   wait 1 second
  140.   type "Midterm Exam"
  141.   wait 30
  142.   select text of card field id 6
  143.   type "50.0"
  144.   wait 30
  145.   select text of card field id 7
  146.   type "1"
  147.   wait 1 second
  148.   select text of card field id 21
  149.   type "C+"
  150.   put "67.6" into background field id 37
  151.   put "73.8" into background field id 61
  152.   put "B-" into background field id 69
  153.   wait 30
  154.   select text of card field id 22
  155.   type "A-"
  156.   put "87.6" into background field id 38
  157.   put "86.9" into background field id 62
  158.   put "A-" into background field id 70
  159.   wait 30
  160.   select text of card field id 23
  161.   type "B"
  162.   put "77.6" into background field id 39
  163.   put "75.1" into background field id 63
  164.   put "B" into background field id 71
  165.   wait 30
  166.   select text of card field id 24
  167.   type "B+"
  168.   put "82.4" into background field id 40
  169.   put "83.7" into background field id 64
  170.   put "B+" into background field id 72
  171.   wait 30
  172.   select text of card field id 25
  173.   type "C"
  174.   put "62.4" into background field id 41
  175.   put "59.9" into background field id 65
  176.   put "C-" into background field id 73
  177.   wait 1 second
  178.   put "72.4" into background field id 42
  179.   put "70.3" into background field id 66
  180.   put "B-" into background field id 74
  181.   wait 1 second
  182.   put "87.6" into background field id 43
  183.   put "85.1" into background field id 67
  184.   put "A-" into background field id 75
  185.   wait 1 second
  186.   put "70.0" into background field id 44
  187.   put "73.1" into background field id 68
  188.   put "B-" into background field id 76
  189.   showInfo "Class Average",true
  190.   wait 1 second
  191.   set the cursor to hand
  192.   autoMouse moveMouse,26,49
  193.   click at the loc of card button "Close"
  194.   showInfo "Consolidation",false
  195.   wait 1 second
  196.   set the cursor to hand
  197.   autoMouse menuMouse,4,9 -- Consolidation‚Ķ
  198.   wait 1 second
  199.   autoMouse moveMouse,80,90
  200.   tabkey
  201.   wait 30
  202.   type "Term 1"
  203.   wait 30
  204.   autoMouse moveMouse,140,169
  205.   send "mouseUp up" to card button id 6
  206.   wait 30
  207.   autoMouse moveMouse,140,201
  208.   send "mouseUp down" to card button id 7
  209.   wait 30
  210.   autoMouse moveMouse,340,186
  211.   click at the loc of card button id 10
  212.   wait 1 second
  213.   autoMouse moveMouse,346,262
  214.   click at the loc of card button "Consolidate"
  215.   lock screen
  216.   go to card "Term 1 Mark" of this background
  217.   put "100.0" into card field id 6
  218.   put "0" into card field id 7
  219.   put "75.9" into card field id 8
  220.   put "0.0" into card field id 9
  221.   put "0.0" into card field id 10
  222.   put "73.8" into card field id 21
  223.   put "86.9" into card field id 22
  224.   put "75.1" into card field id 23
  225.   put "83.7" into card field id 24
  226.   put "59.9" into card field id 25
  227.   go back
  228.   unlock screen
  229.   autoMouse moveMouse,303,80
  230.   click at the loc of background button id 3
  231.   click at the loc of background button id 3
  232.   wait 3 seconds
  233.   autoMouse moveMouse,35,64
  234.   click at the loc of card button "Close"
  235.   wait 1 second
  236.   autoMouse menuMouse,4,10 -- Term Marks‚Ķ
  237.   showInfo "Term Marks",true
  238.   wait 1 second
  239.   set the cursor to hand
  240.   autoMouse moveMouse,223,95
  241.   select text of card field id 25
  242.   wait 30
  243.   autoMouse moveMouse,94,279
  244.   click at the loc of card button id 21
  245.   put "B-" into card field id 24
  246.   put "A-" into card field id 36
  247.   put "B" into card field id 48
  248.   put "B+" into card field id 60
  249.   put "73.8" into card field id 25
  250.   put "86.9" into card field id 37
  251.   put "75.1" into card field id 49
  252.   put "83.7" into card field id 61
  253.   wait 30
  254.   autoMouse moveMouse,437,258
  255.   click at the loc of card button "Comments‚Ķ"
  256.   wait 30
  257.   autoMouse moveMouse,181,134
  258.   click at the loc of card button id 5
  259.   wait 30
  260.   autoMouse moveMouse,379,217
  261.   click at the loc of card button "Open"
  262.   showInfo "Comments",true
  263.   wait 1 second
  264.   set the cursor to hand
  265.   autoMouse moveMouse,259,110
  266.   select text of card field id 31
  267.   type "10"
  268.   wait 30
  269.   tabKey
  270.   type "29"
  271.   wait 30
  272.   tabKey
  273.   type "45"
  274.   wait 1 second
  275.   autoMouse moveMouse,259,142
  276.   select text of card field id 43
  277.   type "9"
  278.   wait 1 second
  279.   autoMouse moveMouse,259,174
  280.   select text of card field id 55
  281.   type "56"
  282.   wait 30
  283.   tabKey
  284.   type "78"
  285.   wait 1 second
  286.   autoMouse moveMouse,259,206
  287.   select text of card field id 67
  288.   type "36"
  289.   wait 1 second
  290.   autoMouse moveMouse,259,94
  291.   select text of card field id 26
  292.   type "F"
  293.   wait 30
  294.   tabKey
  295.   type "P"
  296.   wait 1 second
  297.   autoMouse moveMouse,259,126
  298.   select text of card field id 38
  299.   type "G"
  300.   wait 30
  301.   tabKey
  302.   type "G"
  303.   wait 1 second
  304.   autoMouse moveMouse,259,158
  305.   select text of card field id 50
  306.   type "F"
  307.   wait 30
  308.   tabKey
  309.   type "E"
  310.   wait 1 second
  311.   autoMouse moveMouse,259,190
  312.   select text of card field id 62
  313.   type "E"
  314.   wait 30
  315.   tabKey
  316.   type "G"
  317.   select empty
  318.   showInfo "Period Attendance",true
  319.   wait 1 second
  320.   set the cursor to hand
  321.   autoMouse moveMouse,355,94
  322.   select text of card field id 28
  323.   type "31.0"
  324.   wait 30
  325.   tabKey
  326.   type "5.0"
  327.   wait 30
  328.   tabKey
  329.   type "4.0"
  330.   wait 1 second
  331.   autoMouse moveMouse,355,126
  332.   select text of card field id 40
  333.   type "34.0"
  334.   wait 30
  335.   tabKey
  336.   type "3.0"
  337.   wait 30
  338.   tabKey
  339.   type "1.0"
  340.   wait 1 second
  341.   autoMouse moveMouse,355,158
  342.   select text of card field id 52
  343.   type "30.0"
  344.   wait 30
  345.   tabKey
  346.   type "1.0"
  347.   wait 30
  348.   tabKey
  349.   type "5.0"
  350.   wait 1 second
  351.   autoMouse moveMouse,355,190
  352.   select text of card field id 64
  353.   type "33.0"
  354.   wait 30
  355.   tabKey
  356.   tabKey
  357.   type "2.0"
  358.   select empty
  359.   showInfo "Term Marks Dialog",true
  360.   wait 1 second
  361.   set the cursor to hand
  362.   autoMouse moveMouse,438,284
  363.   click at the loc of card button "OK"
  364.   showInfo "Sorting",false
  365.   wait 1 second
  366.   set the cursor to hand
  367.   autoMouse menuMouse,4,12 -- Sort‚Ķ
  368.   wait 3 seconds
  369.   autoMouse moveMouse,340,240
  370.   click at the loc of card button "Cancel"
  371.   showInfo "Reports",false
  372.   wait 1 second
  373.   set the cursor to hand
  374.   autoMouse menuMouse,5,5 -- Task Statistics‚Ķ
  375.   wait 3 seconds
  376.   autoMouse moveMouse,21,40
  377.   click at the loc of card button "Close"
  378.   wait 30
  379.   autoMouse menuMouse,5,6 -- Student Report‚Ķ
  380.   wait 1 second
  381.   autoMouse moveMouse,142,90
  382.   click at the loc of card button id 4
  383.   wait 30
  384.   autoMouse moveMouse,350,105
  385.   send "mouseUp up" to card button id 11
  386.   wait 30
  387.   autoMouse moveMouse,350,140
  388.   send "mouseUp down" to card button id 12
  389.   wait 30
  390.   autoMouse moveMouse,350,170
  391.   send "mouseUp down" to card button id 13
  392.   wait 30
  393.   autoMouse moveMouse,312,245
  394.   click at the loc of card button "Detailed"
  395.   wait 1 second
  396.   autoMouse moveMouse,178,292
  397.   click at the loc of card button "Print"
  398.   wait 30
  399.   autoMouse moveMouse,440,136
  400.   click at the loc of card button "Open‚Ķ"
  401.   wait 1 second
  402.   autoMouse moveMouse,189,132
  403.   click at the loc of card button id 5
  404.   wait 1 second
  405.   autoMouse moveMouse,379,216
  406.   click at the loc of card button "Open"
  407.   wait 1 second
  408.   autoMouse moveMouse,440,218
  409.   click at the loc of card button "Leave"
  410.   wait 1 second
  411.   showInfo "Student Report",true
  412.   wait 1 second
  413.   set the cursor to hand
  414.   autoMouse moveMouse,21,40
  415.   click at the loc of card button "Close"
  416.   wait 30
  417.   autoMouse menuMouse,5,8 -- Term Report‚Ķ
  418.   wait 1 second
  419.   autoMouse moveMouse,130,83
  420.   click at the loc of card button id 2
  421.   wait 30
  422.   autoMouse moveMouse,237,83
  423.   click at the loc of card button "Term 1"
  424.   wait 30
  425.   autoMouse moveMouse,237,159
  426.   click at the loc of card button "Letter Grade"
  427.   wait 30
  428.   autoMouse moveMouse,237,175
  429.   click at the loc of card button "Percentage"
  430.   wait 30
  431.   autoMouse moveMouse,237,207
  432.   click at the loc of card button "Work Habit"
  433.   wait 30
  434.   autoMouse moveMouse,237,222
  435.   click at the loc of card button "Citizenship"
  436.   wait 30
  437.   autoMouse moveMouse,237,255
  438.   click at the loc of card button "Present"
  439.   wait 30
  440.   autoMouse moveMouse,237,271
  441.   click at the loc of card button "Late"
  442.   wait 30
  443.   autoMouse moveMouse,237,287
  444.   click at the loc of card button "Absent"
  445.   wait 30
  446.   autoMouse moveMouse,352,160
  447.   click at the loc of card button "Comment 1"
  448.   wait 1 second
  449.   autoMouse moveMouse,285,314
  450.   click at the loc of card button "Print"
  451.   wait 3 seconds
  452.   autoMouse moveMouse,21,40
  453.   click at the loc of card button "Close"
  454.   showInfo "Conclusion",false
  455.   wait 1 second
  456.   set the cursor to hand
  457.   autoMouse menuMouse,1,1 -- About
  458.   if the result is "Item not found" then -- test for XCMD bug
  459.     send "doMenu About" to background "CSL Marks"
  460.   end if
  461. end rollingDemo
  462.  
  463. on showInfo fieldName,cardPict
  464.   lock screen
  465.   set the cursor to none
  466.   restoreMenuBar false
  467.   grayPicture cardPict
  468.   installMenuBar 1090,1091,1092,1093,1094,-211
  469.   show card field fieldName
  470.   unlock screen with dissolve
  471.   put the secs into temp
  472.   repeat until the mouseClick
  473.     if (the secs - temp) > 30 then show card field "Continue"
  474.   end repeat
  475.   lock screen
  476.   hide card field fieldName
  477.   hide card field "Continue"
  478.   pop card
  479.   unlock screen with dissolve
  480.   if the optionKey is down then exit to HyperCard
  481. end showInfo
  482.  
  483.  
  484. -- part 1 (button)
  485. -- low flags: 00
  486. -- high flags: 0001
  487. -- rect: left=418 top=168 right=214 bottom=500
  488. -- title width / last selected line: 0
  489. -- icon id / first selected line: 0 / 0
  490. -- text alignment: 1
  491. -- font id: 0
  492. -- text size: 12
  493. -- style flags: 0
  494. -- line height: 16
  495. -- part name: Mask
  496.  
  497.  
  498. -- part contents for background part 5
  499. ----- text -----
  500. Marks
  501.  
  502. -- part contents for background part 6
  503. ----- text -----
  504. The Grade Book module designed for teachers is available for the Apple //e, //GS and Macintosh.  Mac School can download class information created in Mac School (ie. Teacher Name, Course Name, Student Roster) to a teachers disk for the //e, //GS or Macintosh.  The teacher can then use the Grade Book program throughout the term and then upload the term marks into Mac School to produce report cards.
  505.  
  506. Teachers can send home progress reports.  They have the flexibility to identify what type of information they would like on the report (comments, student percentage, letter grade, class average, etc.).
  507.  
  508. Soon to be released the capability to upload term marks from the //GS via the Appleshare network.  The ability to upload term marks from the Macintosh already exists!
  509.  
  510. LXR‚Ä¢Test, a test generation and scoring program for the Macintosh by Logic Extension Resources, can transfer test results into CSL Marks for the Macintosh.